'sSN= "0759687485"
'sOTP= "82487311"  '0
'sOTP= "82487312"  '13
'sOTP= "8248731112" '2

sSN= "static0000000000"
sOTP= "asdf"
'======================================================
  Set OBJ = CreateObject("ActivCard.Authentication")

  msgbox OBJ.SyncAuthCheckCode( sSN, sOTP )

  Set OBJ = Nothing